home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Aminet 16
/
Aminet 16 (1996)(GTI - Schatztruhe)[!][Dec 1996].iso
/
Aminet
/
comm
/
term
/
term_source.lha
/
Extras
/
Source
/
term-source.lha
/
ModemPanel.c
< prev
next >
Wrap
C/C++ Source or Header
|
1996-10-20
|
15KB
|
584 lines
/*
** ModemPanel.c
**
** Editing panel for modem configuration
**
** Copyright © 1990-1996 by Olaf `Olsen' Barthel
** All Rights Reserved
**
** :ts=4
*/
#ifndef _GLOBAL_H
#include "Global.h"
#endif
enum { GAD_LIMIT_MACRO=1000,GAD_DIAL_PREFIX,GAD_DIAL_SUFFIX,
GAD_DIAL_MODE,GAD_USE,GAD_CANCEL,
GAD_PAGER,GAD_PAGEGROUP,GAD_INTER_DIAL_DELAY,
GAD_PBX_PREFIX,GAD_PBX
};
STATIC STRPTR SAVE_DS STACKARGS
ShowDialRetries(struct Gadget *UnusedGadget,LONG Level)
{
if(Level > 1000)
return(LocaleString(MSG_DIAL_RETRIES_UNLIMITED_TXT));
else
{
STATIC UBYTE Buffer[10];
LimitedSPrintf(sizeof(Buffer),Buffer,"%ld",Level);
return(Buffer);
}
}
STATIC STRPTR SAVE_DS STACKARGS
ShowHours(struct Gadget *UnusedGadget,LONG Level)
{
STATIC UBYTE Buffer[15];
LimitedSPrintf(sizeof(Buffer),Buffer,LocaleString(MSG_GLOBAL_SHOW_HOURS_TXT),Level / 60,Level % 60);
return(Buffer);
}
STATIC STRPTR SAVE_DS STACKARGS
ModemShowSeconds(struct Gadget *UnusedGadget,LONG Level)
{
STATIC UBYTE Buffer[15];
LimitedSPrintf(sizeof(Buffer),Buffer,LocaleString(MSG_GLOBAL_SHOW_MINUTES_TXT),Level / 60,Level % 60);
return(Buffer);
}
BOOL
ModemPanel(struct Window *Parent,struct Configuration *LocalConfig)
{
STATIC LONG PageTitleID[7] =
{
MSG_V36_0110,
MSG_V36_0111,
MSG_DIALCOMMANDS_TXT,
MSG_V36_0112,
MSG_V36_0116,
MSG_V36_0118,
-1
};
STATIC BYTE InitialPage = 0;
LayoutHandle *Handle;
BOOL UseIt;
UseIt = FALSE;
SaveConfig(LocalConfig,PrivateConfig);
if(Handle = LT_CreateHandleTags(Parent->WScreen,
LAHN_LocaleHook, &LocaleHook,
LAHN_ExitFlush, FALSE,
TAG_DONE))
{
struct Window *PanelWindow;
LT_New(Handle,
LA_Type, VERTICAL_KIND,
TAG_DONE);
{
LT_New(Handle,
LA_Type,VERTICAL_KIND,
TAG_DONE);
{
LT_New(Handle,
LA_Type, TAB_KIND,
LA_ID, GAD_PAGER,
LA_LabelID, MSG_XFER_PAGE_TXT,
LACY_LabelTable,PageTitleID,
LACY_AutoPageID,GAD_PAGEGROUP,
LACY_TabKey, TRUE,
LA_BYTE, &InitialPage,
LATB_FullWidth, TRUE,
TAG_DONE);
LT_EndGroup(Handle);
}
LT_New(Handle,
LA_Type, VERTICAL_KIND,
LA_ID, GAD_PAGEGROUP,
LAGR_ActivePage,InitialPage,
TAG_DONE);
{
LT_New(Handle,
LA_Type, VERTICAL_KIND,
TAG_DONE);
{
LT_New(Handle,
LA_Type, STRING_KIND,
LA_LabelID, MSG_MODEMPANEL_MODEM_INIT_STRING_GAD,
LA_STRPTR, PrivateConfig->ModemConfig->ModemInit,
LA_Chars, 20,
GTST_MaxChars, sizeof(PrivateConfig->ModemConfig->ModemInit) - 1,
TAG_DONE);
LT_New(Handle,
LA_Type, STRING_KIND,
LA_LabelID, MSG_MODEMPANEL_MODEM_EXIT_STRING_GAD,
LA_STRPTR, PrivateConfig->ModemConfig->ModemExit,
GTST_MaxChars, sizeof(PrivateConfig->ModemConfig->ModemExit) - 1,
TAG_DONE);
LT_New(Handle,
LA_Type, STRING_KIND,
LA_LabelID, MSG_MODEMPANEL_MODEM_HANGUP_STRING_GAD,
LA_STRPTR, PrivateConfig->ModemConfig->ModemHangup,
GTST_MaxChars, sizeof(PrivateConfig->ModemConfig->ModemHangup) - 1,
TAG_DONE);
if(LocalConfig == Config)
{
LT_New(Handle,
LA_Type, CHECKBOX_KIND,
LA_LabelID, MSG_DO_NOT_SEND_MODEM_COMMANDS_TXT,
LA_BYTE, &PrivateConfig->ModemConfig->DoNotSendMainModemCommands,
LA_ExtraSpace, TRUE,
TAG_DONE);
}
LT_New(Handle,
LA_Type, XBAR_KIND,
TAG_DONE);
LT_New(Handle,
LA_Type, INTEGER_KIND,
LA_LabelID, MSG_COMMAND_SEND_DELAY_TXT,
LA_LONG, &PrivateConfig->ModemConfig->CharSendDelay,
LAIN_Min, 0,
LAIN_UseIncrementers, TRUE,
TAG_DONE);
LT_EndGroup(Handle);
}
LT_New(Handle,
LA_Type, VERTICAL_KIND,
TAG_DONE);
{
LT_New(Handle,
LA_Type, STRING_KIND,
LA_LabelID, MSG_MODEMPANEL_NO_CARRIER_STRING_GAD,
LA_STRPTR, PrivateConfig->ModemConfig->NoCarrier,
LA_Chars, 20,
GTST_MaxChars, sizeof(PrivateConfig->ModemConfig->NoCarrier) - 1,
TAG_DONE);
LT_New(Handle,
LA_Type, STRING_KIND,
LA_LabelID, MSG_MODEMPANEL_NO_DIALTONE_STRING_GAD,
LA_STRPTR, PrivateConfig->ModemConfig->NoDialTone,
GTST_MaxChars, sizeof(PrivateConfig->ModemConfig->NoDialTone) - 1,
TAG_DONE);
LT_New(Handle,
LA_Type, STRING_KIND,
LA_LabelID, MSG_MODEMPANEL_CONNECT_STRING_GAD,
LA_STRPTR, PrivateConfig->ModemConfig->Connect,
GTST_MaxChars, sizeof(PrivateConfig->ModemConfig->Connect) - 1,
TAG_DONE);
LT_New(Handle,
LA_Type, STRING_KIND,
LA_LabelID, MSG_MODEMPANEL_VOICE_STRING_GAD,
LA_STRPTR, PrivateConfig->ModemConfig->Voice,
GTST_MaxChars, sizeof(PrivateConfig->ModemConfig->Voice) - 1,
TAG_DONE);
LT_New(Handle,
LA_Type, STRING_KIND,
LA_LabelID, MSG_MODEMPANEL_RING_STRING_GAD,
LA_STRPTR, PrivateConfig->ModemConfig->Ring,
GTST_MaxChars, sizeof(PrivateConfig->ModemConfig->Ring) - 1,
TAG_DONE);
LT_New(Handle,
LA_Type, STRING_KIND,
LA_LabelID, MSG_MODEMPANEL_BUSY_STRING_GAD,
LA_STRPTR, PrivateConfig->ModemConfig->Busy,
GTST_MaxChars, sizeof(PrivateConfig->ModemConfig->Busy) - 1,
TAG_DONE);
LT_New(Handle,
LA_Type, STRING_KIND,
LA_LabelID, MSG_MODEMPANEL_OK_STRING_GAD,
LA_STRPTR, PrivateConfig->ModemConfig->Ok,
GTST_MaxChars, sizeof(PrivateConfig->ModemConfig->Ok) - 1,
TAG_DONE);
LT_New(Handle,
LA_Type, STRING_KIND,
LA_LabelID, MSG_MODEMPANEL_ERROR_STRING_GAD,
LA_STRPTR, PrivateConfig->ModemConfig->Error,
GTST_MaxChars, sizeof(PrivateConfig->ModemConfig->Error) - 1,
TAG_DONE);
LT_EndGroup(Handle);
}
LT_New(Handle,
LA_Type, VERTICAL_KIND,
TAG_DONE);
{
STATIC LONG DialLabels[] =
{
MSG_DIALMODE1_TXT,
MSG_DIALMODE2_TXT,
MSG_DIALMODE3_TXT,
MSG_DIALMODE4_TXT,
-1
};
BOOL NotFound;
LONG i;
for(i = 0, NotFound = TRUE ; NotFound && i < strlen(PrivateConfig->ModemConfig->DialPrefix) - 1 ; i++)
{
if(PrivateConfig->ModemConfig->DialPrefix[i] == '\\' && ToUpper(PrivateConfig->ModemConfig->DialPrefix[i + 1]) == 'W')
NotFound = FALSE;
}
for(i = 0 ; NotFound && i < strlen(PrivateConfig->ModemConfig->DialSuffix) - 1 ; i++)
{
if(PrivateConfig->ModemConfig->DialSuffix[i] == '\\' && ToUpper(PrivateConfig->ModemConfig->DialSuffix[i + 1]) == 'W')
NotFound = FALSE;
}
LT_New(Handle,
LA_Type, STRING_KIND,
LA_LabelID, MSG_MODEMPANEL_DIAL_PREFIX_GAD,
LA_STRPTR, PrivateConfig->ModemConfig->DialPrefix,
LA_Chars, 20,
LA_ID, GAD_DIAL_PREFIX,
GTST_MaxChars, sizeof(PrivateConfig->ModemConfig->DialPrefix) - 1,
TAG_DONE);
LT_New(Handle,
LA_Type, STRING_KIND,
LA_LabelID, MSG_MODEMPANEL_DIAL_SUFFIX_GAD,
LA_STRPTR, PrivateConfig->ModemConfig->DialSuffix,
LA_ID, GAD_DIAL_SUFFIX,
GTST_MaxChars, sizeof(PrivateConfig->ModemConfig->DialSuffix) - 1,
TAG_DONE);
LT_New(Handle,
LA_Type, CYCLE_KIND,
LA_LabelID, MSG_DIALMODE2_GAD,
LA_BYTE, &PrivateConfig->ModemConfig->DialMode,
LA_ID, GAD_DIAL_MODE,
LACY_LabelTable,DialLabels,
GA_Disabled, NotFound,
TAG_DONE);
LT_New(Handle,
LA_Type, STRING_KIND,
LA_LabelID, MSG_PBX_DIAL_PREFIX_TXT,
LA_STRPTR, PrivateConfig->ModemConfig->PBX_Prefix,
LA_ID, GAD_PBX_PREFIX,
GTST_MaxChars, sizeof(PrivateConfig->ModemConfig->PBX_Prefix) - 1,
LA_ExtraSpace, TRUE,
TAG_DONE);
LT_New(Handle,
LA_Type, CHECKBOX_KIND,
LA_LabelID, MSG_PBX_DIAL_MODE_TXT,
LA_BYTE, &PrivateConfig->ModemConfig->PBX_Mode,
TAG_DONE);
LT_EndGroup(Handle);
}
LT_New(Handle,
LA_Type, VERTICAL_KIND,
TAG_DONE);
{
LT_New(Handle,
LA_Type, SliderType,
LA_LabelID, MSG_MODEMPANEL_REDIAL_DELAY_GAD,
LA_LONG, &PrivateConfig->ModemConfig->RedialDelay,
GTSL_Min, 0,
GTSL_Max, 60 * 60,
GTSL_DispFunc, ModemShowSeconds,
GTSL_LevelFormat, "%s",
TAG_DONE);
if(PrivateConfig->ModemConfig->DialRetries < 0)
PrivateConfig->ModemConfig->DialRetries = 1001;
LT_New(Handle,
LA_Type, SliderType,
LA_LabelID, MSG_MODEMPANEL_DIAL_RETRIES_GAD,
LA_LONG, &PrivateConfig->ModemConfig->DialRetries,
GTSL_DispFunc, ShowDialRetries,
GTSL_Min, 0,
GTSL_Max, 1001,
GTSL_LevelFormat, "%s",
TAG_DONE);
LT_New(Handle,
LA_Type, SliderType,
LA_LabelID, MSG_MODEMPANEL_DIAL_TIMEOUT_GAD,
LA_LONG, &PrivateConfig->ModemConfig->DialTimeout,
GTSL_Min, 0,
GTSL_Max, 1800,
GTSL_DispFunc, ModemShowSeconds,
GTSL_LevelFormat, "%s",
TAG_DONE);
LT_New(Handle,
LA_Type, SliderType,
LA_LabelID, MSG_INTER_DIAL_DELAY_TXT,
LA_LONG, &PrivateConfig->ModemConfig->InterDialDelay,
GTSL_Min, 0,
GTSL_Max, 1800,
GTSL_DispFunc, ModemShowSeconds,
GTSL_LevelFormat, "%s",
TAG_DONE);
LT_New(Handle,
LA_Type, CHECKBOX_KIND,
LA_LabelID, MSG_VERBOSE_DIALING_TXT,
LA_BYTE, &PrivateConfig->ModemConfig->VerboseDialing,
TAG_DONE);
LT_New(Handle,
LA_Type, CHECKBOX_KIND,
LA_LabelID, MSG_MODEMPANEL_NOCARRIER_IS_BUSY_GAD,
LA_BYTE, &PrivateConfig->ModemConfig->NoCarrierIsBusy,
TAG_DONE);
LT_New(Handle,
LA_Type, XBAR_KIND,
TAG_DONE);
LT_New(Handle,
LA_Type, CHECKBOX_KIND,
LA_LabelID, MSG_MODEMPANEL_CONNECT_AUTO_BAUD_GAD,
LA_BYTE, &PrivateConfig->ModemConfig->ConnectAutoBaud,
TAG_DONE);
LT_New(Handle,
LA_Type, CHECKBOX_KIND,
LA_LabelID, MSG_MODEMPANEL_ABORT_HANGS_UP_TXT,
LA_BYTE, &PrivateConfig->ModemConfig->AbortHangsUp,
TAG_DONE);
LT_New(Handle,
LA_Type, SliderType,
LA_LabelID, MSG_MODEMPANEL_TIME_TO_CONNECT_GAD,
LA_LONG, &PrivateConfig->ModemConfig->TimeToConnect,
LA_Chars, 8,
GTSL_Min, 0,
GTSL_Max, 60 * 60,
GTSL_DispFunc, ModemShowSeconds,
GTSL_LevelFormat, "%s",
TAG_DONE);
LT_EndGroup(Handle);
}
LT_New(Handle,
LA_Type, VERTICAL_KIND,
TAG_DONE);
{
LT_New(Handle,
LA_Type, CHECKBOX_KIND,
LA_LabelID, MSG_MODEMPANEL_DROP_DTR_ON_HANGUP_GAD,
LA_BYTE, &PrivateConfig->ModemConfig->DropDTR,
TAG_DONE);
LT_New(Handle,
LA_Type, CHECKBOX_KIND,
LA_LabelID, MSG_MODEMPANEL_REDIAL_AFTER_HANGUP_GAD,
LA_BYTE, &PrivateConfig->ModemConfig->RedialAfterHangup,
TAG_DONE);
LT_EndGroup(Handle);
}
LT_New(Handle,
LA_Type, VERTICAL_KIND,
TAG_DONE);
{
LT_New(Handle,
LA_Type, SliderType,
LA_LabelID, MSG_MODEMPANEL_CONNECTION_LIMIT_GAD,
LA_WORD, &PrivateConfig->ModemConfig->ConnectLimit,
GTSL_Min, 0,
GTSL_Max, 1440,
GTSL_DispFunc, ShowHours,
GTSL_LevelFormat, "%s",
TAG_DONE);
LT_New(Handle,
LA_Type, STRING_KIND,
LA_LabelID, MSG_MODEMPANEL_LIMIT_MACRO_GAD,
LA_STRPTR, PrivateConfig->ModemConfig->ConnectLimitMacro,
LA_Chars, 20,
LA_ID, GAD_LIMIT_MACRO,
GTST_MaxChars, sizeof(PrivateConfig->ModemConfig->ConnectLimitMacro) - 1,
TAG_DONE);
LT_EndGroup(Handle);
}
LT_EndGroup(Handle);
}
LT_New(Handle,
LA_Type, VERTICAL_KIND,
TAG_DONE);
{
LT_New(Handle,
LA_Type, XBAR_KIND,
LAXB_FullSize, TRUE,
TAG_DONE);
LT_EndGroup(Handle);
}
LT_New(Handle,LA_Type,HORIZONTAL_KIND,
LAGR_SameSize, TRUE,
LAGR_Spread, TRUE,
TAG_DONE);
{
LT_New(Handle,
LA_Type, BUTTON_KIND,
LA_LabelID, MSG_GLOBAL_USE_GAD,
LA_ID, GAD_USE,
LABT_ReturnKey, TRUE,
LABT_ExtraFat, TRUE,
TAG_DONE);
LT_New(Handle,
LA_Type, BUTTON_KIND,
LA_LabelID, MSG_GLOBAL_CANCEL_GAD,
LA_ID, GAD_CANCEL,
LABT_EscKey, TRUE,
LABT_ExtraFat, TRUE,
TAG_DONE);
LT_EndGroup(Handle);
}
LT_EndGroup(Handle);
}
if(PanelWindow = LT_Build(Handle,
LAWN_TitleID, MSG_MODEMPANEL_MODEM_PREFERENCES_TXT,
LAWN_HelpHook, &GuideHook,
LAWN_Parent, Parent,
WA_DepthGadget, TRUE,
WA_DragBar, TRUE,
WA_RMBTrap, TRUE,
WA_Activate, TRUE,
WA_SimpleRefresh, TRUE,
TAG_DONE))
{
struct IntuiMessage *Message;
struct Gadget *MsgGadget;
ULONG MsgClass;
BOOL NotFound;
BOOL Done;
LONG i;
GuideContext(CONTEXT_MODEM);
PushWindow(PanelWindow);
LT_ShowWindow(Handle,TRUE);
Done = FALSE;
do
{
if(Wait(PORTMASK(PanelWindow->UserPort) | SIG_BREAK) & SIG_BREAK)
break;
while(Message = (struct IntuiMessage *)LT_GetIMsg(Handle))
{
MsgClass = Message->Class;
MsgGadget = (struct Gadget *)Message->IAddress;
LT_ReplyIMsg(Message);
if(MsgClass == IDCMP_GADGETUP)
{
switch(MsgGadget->GadgetID)
{
case GAD_DIAL_PREFIX:
case GAD_DIAL_SUFFIX:
case GAD_DIAL_MODE:
for(i = 0, NotFound = TRUE ; NotFound && i < strlen(PrivateConfig->ModemConfig->DialPrefix) - 1 ; i++)
{
if(PrivateConfig->ModemConfig->DialPrefix[i] == '\\' && ToUpper(PrivateConfig->ModemConfig->DialPrefix[i + 1]) == 'W')
NotFound = FALSE;
}
for(i = 0 ; NotFound && i < strlen(PrivateConfig->ModemConfig->DialSuffix) - 1 ; i++)
{
if(PrivateConfig->ModemConfig->DialSuffix[i] == '\\' && ToUpper(PrivateConfig->ModemConfig->DialSuffix[i + 1]) == 'W')
NotFound = FALSE;
}
LT_SetAttributes(Handle,GAD_DIAL_MODE,
GA_Disabled,NotFound,
TAG_DONE);
break;
case GAD_USE:
LT_UpdateStrings(Handle);
UseIt = Done = TRUE;
break;
case GAD_CANCEL:
Done = TRUE;
break;
}
}
}
}
while(!Done);
PopWindow();
}
LT_DeleteHandle(Handle);
}
if(UseIt)
{
if(PrivateConfig->ModemConfig->DialRetries > 1000)
PrivateConfig->ModemConfig->DialRetries = -1;
if(Config->MiscConfig->ProtectiveMode && PrivateConfig->SerialConfig->BaudRate >= 4800 && PrivateConfig->ModemConfig->ConnectAutoBaud)
{
if(ShowRequest(Window,LocaleString(MSG_AUTOBAUD_TXT),LocaleString(MSG_GLOBAL_YES_NO_TXT)))
PrivateConfig->ModemConfig->ConnectAutoBaud = FALSE;
}
}
if(UseIt)
SwapConfig(LocalConfig,PrivateConfig);
else
SaveConfig(LocalConfig,PrivateConfig);
return(UseIt);
}